﻿Imports Entidades

Public Class Cliente : Implements IEquatable(Of Cliente)
    Public Property IdCliente As Integer
    Public Property NombreApellidos As String
    Public Property Telefono As String
    Public Property Email As String
    Public Property IdTipoCliente As Integer

    Public Sub New()

    End Sub
    Public Sub New(ByVal nombre As String, ByVal telefono As String, ByVal email As String, ByVal idTipo As Integer)

        Me.NombreApellidos = nombre
        Me.Telefono = telefono
        Me.Email = email
        Me.IdTipoCliente = idTipo

    End Sub
    Public Sub New(ByVal idCliente As Integer, ByVal nombre As String, ByVal telefono As String, ByVal email As String, ByVal idTipo As Integer)
        Me.IdCliente = idCliente
        Me.NombreApellidos = nombre
        Me.Telefono = telefono
        Me.Email = email
        Me.IdTipoCliente = idTipo

    End Sub
    Public Overloads Function Equals(other As Cliente) As Boolean Implements IEquatable(Of Cliente).Equals
        Return other IsNot Nothing AndAlso other.IdCliente = Me.IdCliente

    End Function
End Class